home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 11
/
CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso
/
s
/
getdirlist.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-03-14
|
658b
|
38 lines
/*
Copyright Gold Disk Inc., January 13, 1992
*/
arg sourcedir, filter
cr = '0a'x
if ~show(l, "rexxsupport.library") then
if ~addlib("rexxsupport.library", 0, -30) then
exit_msg("Please install the rexxsupport.library in your libs: directory before running this genie.")
files = showdir(sourcedir, f, '0a'x)
list = ''
do while files ~= ''
parse var files name '0a'x files
p = pos(filter, upper(name))
if p ~= 0 then
list = list || cr || left(name, p - 1)
end
list = delstr(list, 1, 1)
return(list)
exit_msg()
exit_msg: procedure
do
arg message
if message ~= '' then call ppm_Inform(1,message,)
return("")
end